﻿Public Class Organization

    Private m_Name As String
    Private m_Department As String
    Private m_EstablishedTerm As String
    Private m_Status As String

    Public Sub New()
        Me.m_Name = ""
        Me.m_Department = ""
        Me.m_EstablishedTerm = ""
        Me.m_Status = ""
    End Sub


    Public Sub New(Name As String, Department As String, EstablishedTerm As String, Status As String)
        Me.m_Name = Name
        Me.m_Department = Department
        Me.m_EstablishedTerm = EstablishedTerm
        Me.m_Status = Status
    End Sub

    Public Property Name() As String
        Get
            Return m_Name
        End Get
        Set(value As String)
            m_Name = value
        End Set
    End Property

    Public Property Department() As String
        Get
            Return m_Department
        End Get
        Set(value As String)
            m_Department = value
        End Set
    End Property

    Public Property EstablishedTerm() As String
        Get
            Return m_EstablishedTerm
        End Get
        Set(value As String)
            m_EstablishedTerm = value
        End Set
    End Property

    Public Property Status() As String
        Get
            Return m_Status
        End Get
        Set(value As String)
            m_Status = value
        End Set
    End Property

End Class
